home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SONICK2.ZIP / SonicK / aliases.ini next >
INI File  |  1997-02-15  |  15KB  |  288 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  15. n13=color {
  16. n14=  if ($1 == msg) { %act = msg $2 | %len = *3 }
  17. n15=  elseif ($1 == notice) { %act = notice $2 | %len = *3 }
  18. n16=  elseif ($1 == sound) { %act = sound $2 | %len = *3 }
  19. n17=  elseif ($1 == echo) { %act = echo | %len = *2 }
  20. n18=  elseif ($1 == kick) { %act = kick # $2 | %len = *3 }
  21. n19=  elseif ($1 == me) { %act = me | %len = *2 }
  22. n20=  elseif ($1 == ame) { %act = ame | %len = *2 }
  23. n21=  elseif ($1 == ban) { ban $2 3 | %act = kick # $2 | %len = *3 }
  24. n22=  elseif ($1 == amsg) { %act = amsg | %len = *2 }
  25. n23=  elseif ($1 == quit) { %act = quit | %len = *2 }
  26. n24=  elseif ($1 == onotice) { %act = onotice Ops on # $+ : | %len = *2 }
  27. n25=  else { %act = say | %len = *1 }
  28. n26=  :script
  29. n27=  %i = 0
  30. n28=  %rsolt = ""
  31. n29=  %already = $replace(%len,$chr(32),$chr(1))
  32. n30=  :start
  33. n31=  inc %i
  34. n32=  if (%i > $len(%already)) { goto resolt }
  35. n33=  else { set %rsolt %rsolt  $colr($r(1,15),$mid(%i,1,%already)) | goto start }
  36. n34=  :resolt
  37. n35=  %rsolt = $remove(%rsolt,$chr(32)) 
  38. n36=  %rsolt = $replace(%rsolt,$chr(1),$chr(32))
  39. n37=  %act %rsolt
  40. n38=}
  41. n39=F5 ignore -uti30 *!*@* | echo 4 *** 30 SeCondS Of Global CtCp and InVite ProTeCTion! ***
  42. n40=extrapro {
  43. n41=  if ((%ultrapro == OFF) || (%ultrapro == $null)) { echo 4 -s *** Flood ProtecTion AcTivaTed. | %ultrapro = ON | inc %countpro | .timer 1 15 /unset %countpro | .timer 1 15 /set %ultrapro OFF }
  44. n42=  elseif ((%ultrapro == ON) && (%countpro < 7)) { inc %countpro }
  45. n43=  elseif ((%ultrapro == ON) && (%countpro >= 7)) { ignore -u40ptin *!*@* | %ultrapro = OFF | unset %countpro | echo 4 $active *** Flood ProtecTion Triggerd iGnoring Everyone For 30 Seconds. *** }
  46. n44=  return
  47. n45=}
  48. n46=under { return $chr(31) $+ *1 $+ $chr(31) }
  49. n47=bold { return $chr(2) $+ *1 $+ $chr(2) }
  50. n48=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  51. n49=bb1 { return º╗í½º []baz▀ot[] }
  52. n50=bb2 { return []baz▀ot[] º╗í½º }
  53. n51=grammar { %makeit = "" | %gram = $count(*2,$chr(32)) + 1 | if ($count(*2,$chr(32)) == 0) { return *2 } | %i = 0 | :start | inc %i | if (%i > %gram) { goto end } | elseif (%i == $count(*2,$chr(32))) { set %makeit %makeit $gettok(*2,%i,32) | goto start } | elseif (%i == %gram) { set %makeit %makeit $1 $gettok(*2,%i,32) | goto start } | else { set %makeit %makeit $gettok(*2,%i,32) $+ $chr(44) | goto start } | :end | return %makeit }
  54. n52=isme { if (($1 = $me) || ($address($1,2) = $address($me,2))) { return true  } | else { return false } }
  55. n53=isbot { if (($$1 = W) || ($$1 = X)) && (cservice@undernet.org isin $address($$1,1))) { return true } | else { return false } }
  56. n54=cln {
  57. n55=  %timer = $ctime | %stat.ch = # | %stat.p = echo 4 -a ***
  58. n56=  %stat.p Fast Clone Scan For _-+= # =+-_
  59. n57=  %notop = $nopnick(0,%stat.ch) - $vnick(0,%stat.ch)
  60. n58=  if ($nick(0,%stat.ch) == 1) { %chan.1 = iS } | else { %chan.1 = Are } |   if ($opnick(0,%stat.ch) == 1) { %chan.2 = iS } | else { %chan.2 = Are } |   if ($vnick(0,%stat.ch) == 1) { %chan.3 = iS } | else { %chan.3 = Are } |   if ($nopnick(0,%stat.ch) == 1) { %chan.4 = iS } | else { %chan.4 = Are }  
  61. n59=  %stat.p There %chan.1 $nick(0,%stat.ch) Members in %stat.ch , $opnick(0,%stat.ch) Of Them %chan.2 Oped ( $+ $milinum($prec2($opnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) , $vnick(0,%stat.ch) %chan.3 Voiced ( $+ $milinum($prec2($vnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) And %notop %chan.4 Regular Users. ( $+ $milinum($prec2(%notop,$nick(0,%stat.ch))) $+ ) | cln.s
  62. n60=}
  63. n61=cln.s {
  64. n62=  write -c $mircdir $+ stats.ini | %i = 0 | :start | inc %i | if (%i > $nick(0,%stat.ch)) { cln.c }
  65. n63=  elseif (($stat.i(start,$address($nick(%i,%stat.ch),2)) != $null) && ($stat.i(found,$address($nick(%i,%stat.ch),2)) == $null))  { %lockup = $stat.i(start,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | set %stat.v %stat.v $address($nick(%i,%stat.ch),2) | goto start }
  66. n64=  elseif ($stat.i(found,$address($nick(%i,%stat.ch),2)) != $null) { %lockup = $stat.i(found,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | goto start }
  67. n65=  else { writeini $mircdir $+ stats.ini start $address($nick(%i,%stat.ch),2) $nick(%i,%stat.ch) | goto start }
  68. n66=}
  69. n67=cln.c { %redic = $count(%stat.v,$chr(32)) + 1 | %s.i = 0 | :start | inc %s.i | if (%stat.v == $null) { %stat.p The Channel _- %stat.ch -_ iS $bold(Free) Of Clones. | goto end } | elseif (%s.i > %redic) { goto end } | else { %showit = $stat.i(found,$gettok(%stat.v,%s.i,32)) | %stat.n = $count(%showit,$chr(32)) + 1  | %stat.p $grammar(And,%showit) Are %stat.n Clients Of ( $+ $gettok(%stat.v,%s.i,32) $+ ) | goto start } | :end | %timer = $ctime - %timer | %stat.p Process: %timer Seconds. | %stat.p The End. | unset %timer %stat* | halt }
  70. n68=pl {
  71. n69=  %p = 0
  72. n70=  :pl
  73. n71=  inc %p
  74. n72=  if (%p > $chat(0)) { unset %p | halt }
  75. n73=  msg = $+ $chat(%p) < $+ $me $+ > *1
  76. n74=  goto pl
  77. n75=}
  78. n76=plme {
  79. n77=  %p = 0
  80. n78=  :pl
  81. n79=  inc %p
  82. n80=  if (%p > $chat(0)) { unset %p | halt }
  83. n81=  msg = $+ $chat(%p) * $me *1
  84. n82=  goto pl
  85. n83=}
  86. n84=plwho {
  87. n85=  echo 6 $active nick!user@host
  88. n86=  echo 6 $active ==============
  89. n87=  %w = 0
  90. n88=  :w
  91. n89=  inc %w
  92. n90=  if (%w > $chat(0)) { unset %w | halt }
  93. n91=  echo 6 $active $readini $mircdirwho.ini who $chat(%w)
  94. n92=  goto w
  95. n93=}
  96. n94=/poll {
  97. n95=  /set %yes 0
  98. n96=  /set %no 0
  99. n97=  /set %totalvoters 0
  100. n98=  /set %question $$?="Enter the question:"  
  101. n99=  /enable #polls 
  102. n100=  /msg # The PoLLs ArE oPeN The question is ====> 
  103. n101=  /msg # [ $+ %question $+ ]
  104. n102=  /msg #  Type "!yes" for yes and "!no" for no 
  105. n103=  /msg # the polls will close in 2 mins....... 
  106. n104=  .timer 1 60 /say Only 60 sec Left To Vote %popver (!yes or !no)
  107. n105=  .timer 1 120 /polloff
  108. n106=}
  109. n107=/polloff {
  110. n108=  /disable #polls
  111. n109=  /set %yes %yes * 100
  112. n110=  /set %yes %yes / %totalvoters
  113. n111=  /set %no %no * 100
  114. n112=  /set %no %no / %totalvoters
  115. n113=  /set %totalvoters %totalvoters * 100
  116. n114=  /set %totalvoters %totalvoters / $nick(0,#)
  117. n115=  /msg # voting is now closed..the votes are being counted..
  118. n116=  /msg # %totalvoters $+ % of the users on # voted on =========>[ $+ %question $+ ]<=========
  119. n117=  /msg # of that %totalvoters $+ % =YeS's= %yes $+ % and  =No'S= %no $+ %
  120. n118=  if (%yes > %no) goto yes
  121. n119=  if (%yes < %no) goto no
  122. n120=  if (%yes = %no) goto equal
  123. n121=  :yes
  124. n122=  /msg # MaJoriTY VoTeD YeS!!!! 
  125. n123=  goto end
  126. n124=  :no
  127. n125=  /msg # MaJoriTY VoTeD No!!!! 
  128. n126=  goto end
  129. n127=  :equal
  130. n128=  /msg # THeRe'S a LocK UP!!!! 
  131. n129=  :end
  132. n130=  /unset %no 
  133. n131=  /unset %yes 
  134. n132=  /unset %notagain
  135. n133=  /unset %totalvoters
  136. n134=}
  137. n135=/backnick { 
  138. n136=  if #mirc = [ $chan ] halt
  139. n137=  if kcuf isin $nick { msg $chan Hi $nick $+ ... | halt }
  140. n138=  if tnuc isin $nick { msg $chan Hi $nick $+ ... | halt }
  141. n139=  if elohssa isin $nick { msg $chan Hi $nick $+ ... | halt }
  142. n140=  if hctib isin $nick { msg $chan Hi $nick $+ ... | halt }
  143. n141=  else {
  144. n142=    set %charnum 1
  145. n143=    :resetchar
  146. n144=    if %nickchar [ $+ [ %charnum ] ] != $null { unset %nickchar [ $+ [ %charnum ] ] | inc %charnum 1 | goto resetchar }
  147. n145=    set %backnickresult ""
  148. n146=    set %nicklength $len($nick) 
  149. n147=    set %charnum 1
  150. n148=    :nickstart
  151. n149=    if %charnum <= %nicklength {
  152. n150=      set %nickchar [ $+ [ %charnum ] ] $mid(%charnum,1,$nick)
  153. n151=      inc %charnum 1
  154. n152=      goto nickstart
  155. n153=    }
  156. n154=    else {
  157. n155=      set %charnum $len($nick)
  158. n156=      :backresult
  159. n157=      set %nickcharset %nickchar [ $+ [ %charnum ] ]
  160. n158=      set %backnickresult %backnickresult $+ %nickcharset 
  161. n159=      dec %charnum 1
  162. n160=      if %charnum > 0 goto backresult
  163. n161=      else msg $chan %backnickresult iH
  164. n162=    }
  165. n163=    :end
  166. n164=  }
  167. n165=}
  168. n166=/f1 {
  169. n167=  if %away == Off {
  170. n168=    set %away On
  171. n169=    set %returnnick $me
  172. n170=    set %awaynick $$?="Enter Away Nick Here"
  173. n171=    set %awaymsg $$?="Enter Away Message Here"
  174. n172=    .timer 1 2 /nick %awaynick
  175. n173=    amsg 11-=<2T12K11>=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+  2-=- type /ctcp 12 $+ %awaynick $+  2 tkpage (message) to page me 11=-
  176. n174=    .timer909 0 %awaytimer /amsg 11-= 12-=<2T12K12>=- 11=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+  2-=- type /ctcp 12 $+ %awaynick $+  2tkpage (message) to page me 11=-
  177. n175=    .away %awaymsg
  178. n176=    .write -c awaymsg.txt -= -=Message Recorder
  179. n177=    .enable #messagerecorder
  180. n178=  }
  181. n179=  else {
  182. n180=    .set %away Off
  183. n181=    nick %returnnick
  184. n182=    amsg 11-= 12-=<2T12K11>=- 2-=- [12Status] 2Back 11=-
  185. n183=    .away
  186. n184=    .timer909 off
  187. n185=    run awaymsg.txt
  188. n186=    .disable #messagerecorder
  189. n187=  }
  190. n188=}
  191. n189=/t1 /set -q  %chan & $+ $r(A,Z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) | /join %chan | /mode %chan +stin | /timer9 On | /timer999 0 30 /describe %chan ºBartenderº ver 2.0b | /set -q %idle Yes
  192. n190=/unbott /timer999 off | /part %chan | /set -q %idle No | /timer999 off
  193. n191=/cf12 /timers off
  194. n192=/f12 /load -e c:\bott\mbott\bar10.ini | /load -c c:\bott\mbott\bar10.ini | /load -u c:\bott\mbott\bar10.ini | /load -a c:\bott\mbott\bar10.ini | /load -p c:\bott\mbott\bar10.ini | /load -u c:\bott\mbott\bar10.ini | /load -v c:\bott\mbott\bar10.ini
  195. n193=/f10 /load -e c:\ascii\bot1\bot1.ini | /load -c c:\ascii\bot1\bot1.ini | /load -u c:\ascii\bot1\bot1.ini | /load -a c:\ascii\bot1\bot1.ini | /load -p c:\ascii\bot1\bot1.ini  | /load -v c:\ascii\bot1\bot1.ini
  196. n194=/f9 /load -e c:\bott\mbott\bar10c.ini | /load -c c:\bott\mbott\bar10c.ini | /load -u c:\bott\mbott\bar10c.ini | /load -a c:\bott\mbott\bar10c.ini | /load -p c:\bott\mbott\bar10c.ini | /load -u c:\bott\mbott\bar10c.ini | /load -v c:\bott\mbott\bar10c.ini
  197. n195=/f8 /load -e c:\bott\simon\simon.ini | /load -c c:\bott\simon\simon.ini  | /load -a c:\bott\simon\simon.ini | /load -p c:\bott\simon\simon.ini | /load -u c:\bott\simon\simon.ini | /load -v c:\bott\mbott\bar10.ini
  198. n196=/f7 /load -e c:\bott\simon\kill.ini | /load -c c:\bott\simon\kill.ini | /load -u c:\bott\simon\kill.ini | /load -a c:\bott\simon\kill.ini | /load -p c:\bott\simon\kill.ini  | /load -v c:\bott\simon\kill.ini 
  199. n197=/f6 /load -e c:\bott\blink\botter.ini | /load -c c:\bott\blink\botter.ini | /load -u c:\bott\blink\botter.ini |  /load -a c:\bott\blink\botter.ini | /load  -p c:\bott\blink\botter.ini | /load -v c:\bott\blink\botter.ini
  200. n198=/f5  /load -a c:\bott\blink\aliases.ini | /load -p c:\bott\blink\popup.ini | /load -u c:\bott\blink\blink.ini | /load -v c:\bott\blink\variable.ini | /load -c c:\bott\blink\commands.ini | /load -e c:\bott\blink\events.ini | /load -r  c:\bott\blink\raw.ini
  201. n199=/f4 /load -a c:\bott\immort\aliases.ini | /load -p c:\bott\immort\popups.ini | /load -e C:\bott\immort\events.ini | /load -c c:\bott\immort\commands.ini | /load -v c:\bott\immort\variable.ini
  202. n200=/f11 /msg SERVICES IDENTIFY #mIRC_Scripts tsauro | /msg SERVICES IDENTIFY #mIRCBar tsauro  | /msg SERVICES IDENTIFY #Aladin's_Palace tsauro | /msg SERVICES IDENTIFY #00+friends tsauro
  203. n201=/kb /mode # +b $$1 | /kick # $$1 *2 | /timer 1 30 /mode # -b $$1
  204. n202========================backward talk====================
  205. n203=/backwards {
  206. n204=  unset %backtext
  207. n205=  if ($1 == -d) { 
  208. n206=    set %backtext ºá
  209. n207=    set %text $remove(*1,$left(3,*1))
  210. n208=  }
  211. n209=  else { %text = *1 }
  212. n210=  %space = $chr(32)
  213. n211=  %i = $len(%text) + 1
  214. n212=  :next
  215. n213=  dec %i 1
  216. n214=  if %i == 0 { say %backtext | halt }
  217. n215=  %thischar = $mid(%i,1,%text)
  218. n216=  if %thischar == %space {
  219. n217=    %thislet = á
  220. n218=    if %backtext == $null { set %backtext %thislet | goto next }
  221. n219=    else { set %backtext %backtext $+ %thislet | goto next }
  222. n220=  }
  223. n221=  if %backtext == $null { set %backtext %thischar | goto next }
  224. n222=  else { set %backtext %backtext $+ %thischar | goto next }
  225. n223=}
  226. n224====================Chan Stats===================
  227. n225=ScaNniNg enable #CloneScan | who #
  228. n226=ScaNaGaiN enable #Status | who #
  229. n227=IRCopScan enable #opscan | who #
  230. n228=======================Random Color======================
  231. n229=/wc {
  232. n230=  if ($1 == /me) { %cmd = me | %txt = *2 }
  233. n231=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  234. n232=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  235. n233=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  236. n234=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  237. n235=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  238. n236=  else { %cmd = say | %txt = *1 } 
  239. n237=  %i = 1 | %ctxt = $chr(3)
  240. n238=  :nxtc
  241. n239=  %rnd = $rand(1,15)
  242. n240=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
  243. n241=  if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
  244. n242=  else { %ctxt = %ctxt $+ %rnd }
  245. n243=  :nxtchr
  246. n244=  if ( $mid( %i, 1, %txt ) != $chr(32) ) { 
  247. n245=   %ctxt = %ctxt $+ $mid( %i, 1, %txt ) 
  248. n246=    if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
  249. n247=    else { %cmd %ctxt }
  250. n248=  }
  251. n249=  else { 
  252. n250=    if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
  253. n251=    else { %cmd %ctxt }
  254. n252=  }
  255. n253=  unset %cmd %txt %i %ctxt %rnd
  256. n254=}
  257. n255=======================Coded Talk=======================
  258. n256=/e {
  259. n257=  set %ftalk *1
  260. n258=  %ftalk = $replace(%ftalk,a,σ)
  261. n259=  %ftalk = $replace(%ftalk,b,▀)
  262. n260=  %ftalk = $replace(%ftalk,c,⌐)
  263. n261=  %ftalk = $replace(%ftalk,d,╨)
  264. n262=  %ftalk = $replace(%ftalk,e,δ)
  265. n263=  %ftalk = $replace(%ftalk,f,F)
  266. n264=  %ftalk = $replace(%ftalk,g,G)
  267. n265=  %ftalk = $replace(%ftalk,h,H)
  268. n266=  %ftalk = $replace(%ftalk,i,ε)
  269. n267=  %ftalk = $replace(%ftalk,j,J)
  270. n268=  %ftalk = $replace(%ftalk,k,K)
  271. n269=  %ftalk = $replace(%ftalk,l,ú)
  272. n270=  %ftalk = $replace(%ftalk,m,M)
  273. n271=  %ftalk = $replace(%ftalk,n,±)
  274. n272=  %ftalk = $replace(%ftalk,o,°)
  275. n273=  %ftalk = $replace(%ftalk,p,╢)
  276. n274=  %ftalk = $replace(%ftalk,q,Q)
  277. n275=  %ftalk = $replace(%ftalk,r,«)
  278. n276=  %ftalk = $replace(%ftalk,s,º)
  279. n277=  %ftalk = $replace(%ftalk,t,t)
  280. n278=  %ftalk = $replace(%ftalk,u,╡)
  281. n279=  %ftalk = $replace(%ftalk,v,V)
  282. n280=  %ftalk = $replace(%ftalk,w,\\')
  283. n281=  %ftalk = $replace(%ftalk,x,╫)
  284. n282=  %ftalk = $replace(%ftalk,y,Ñ)
  285. n283=  %ftalk = $replace(%ftalk,z,Z)
  286. n284=  say %ftalk
  287. n285=}
  288.